home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 41 / Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso / -seriously_amiga- / misc / evenmore / rexx / testport.rexx < prev    next >
OS/2 REXX Batch file  |  1999-04-28  |  446b  |  31 lines
  1. /* Test port */
  2.  
  3. if ~show('p','rexxsupport.library') then call addlib('rexxsupport.library',0,-30,0)
  4.  
  5. address 'EvenMore.1'
  6.  
  7. options results
  8. "GETFILENAME"; say 'Filename='RESULT
  9. "GETFILESIZE"; say 'Filesize='RESULT
  10. "GETLINE 2";   say 'Line 2='RESULT
  11. "GETFONT";     say 'Font='RESULT
  12.  
  13. "SETFONT Xen/8"
  14. delay(50)
  15.  
  16. "ICONIFY"
  17. delay(50)
  18.  
  19. "OCCURANCE e"
  20. say 'E occurs 'RESULT' times'
  21.  
  22. "CLOSE"
  23. delay(50)
  24.  
  25. "ICONIFY"
  26. delay(200)
  27.  
  28. "QUIT"
  29.  
  30. exit                
  31.